From d394cd73d1b21bd1f6d1679c2fcbb10433477092 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 27 Apr 2025 10:08:38 +0300 Subject: [PATCH] Avoid infinite recursion under 'rectangle-mark-mode' * lisp/rect.el (rectangle--region-beginning) (rectangle--region-end): Avoid infinite recursion. Patch by Alcor . Do not merge to master. (Bug#77973) --- lisp/rect.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/rect.el b/lisp/rect.el index c82bca8100c..b6dc9548bb1 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -766,7 +766,7 @@ Ignores `line-move-visual'." ((not rectangle-mark-mode) (funcall orig)) (t - (apply #'min (mapcar #'car (region-bounds)))))) + (apply #'min (mapcar #'car (let (rectangle-mark-mode) (region-bounds))))))) (defun rectangle--region-end (orig) "Like `region-end' but supports rectangular regions." @@ -774,7 +774,7 @@ Ignores `line-move-visual'." ((not rectangle-mark-mode) (funcall orig)) (t - (apply #'max (mapcar #'cdr (region-bounds)))))) + (apply #'max (mapcar #'cdr (let (rectangle-mark-mode) (region-bounds))))))) (defun rectangle--extract-region (orig &optional delete) (cond -- 2.30.2